Public Class FormTicket
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Button1.Visible = False
        Me.Button2.Visible = False
        Me.BackColor = Color.White
        Me.PrintForm1.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.ClientAreaOnly)
        Me.Dispose()
    End Sub

    Private Sub FormTicket_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Label32.Text = FormPrestamo.lblIdEjemplar.Text
        Me.Label34.Text = FormPrestamo.lblTituloEjemplar.Text
        Me.Label31.Text = FormPrestamo.lblIdLector.Text
        Me.Label33.Text = FormPrestamo.lblApellidoLector.Text & " " & FormPrestamo.lblNombreLector.Text
        Me.Label30.Text = Date.Now.ToShortDateString
        Me.Label29.Text = FormPrestamo.DTPFechaDevolucion.Value.ToShortDateString

        Me.Label25.Text = FormPrestamo.lblIdEjemplar.Text
        Me.Label27.Text = FormPrestamo.lblTituloEjemplar.Text
        Me.Label24.Text = FormPrestamo.lblIdLector.Text
        Me.Label26.Text = FormPrestamo.lblApellidoLector.Text & " " & FormPrestamo.lblNombreLector.Text
        Me.Label23.Text = Date.Now.ToShortDateString
        Me.Label22.Text = FormPrestamo.DTPFechaDevolucion.Value.ToShortDateString

        Me.Label8.Visible = False
        Me.Label35.Visible = False
        Me.Label19.Visible = False
        Me.Label28.Visible = False


    End Sub
End Class